(mail-extract-address-components): Clear text props

after inserting ADDRESS.

diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index 85700097f1c2043aa5fb3a506ae0ec63c1746085..931685c4de1a259e6c28a644b432315800afbd5d 100644 (file)
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -770,6 +770,8 @@ If ADDRESS contains more than one RFC-822 address, only the first is
             (insert-buffer-substring address))
            (t
             (error "Invalid address: %s" address)))
+
+      (set-text-properties (point-min) (point-max) nil)
       
       ;; stolen from rfc822.el
       ;; Unfold multiple lines.